unit MultiDemo_U;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ExtCtrls, ComCtrls, Buttons, Menus, ToolWin,
  Db, ADODB, DBClient, AcroMultiDD, Grids, DBGrids,
  AcroMultiDBDD, ActnList, CheckLst, ActnMan, ActnCtrls,
  DBCtrls, AcroMultiReplacer,
  ActnPopup, Vcl.CategoryButtons, Vcl.ValEdit, Vcl.ButtonGroup, Vcl.Tabs,
  Vcl.DockTabSet, Vcl.FileCtrl, Vcl.TabNotBk, Vcl.Outline;

type
  TFormStudent = class(TForm)
    Label1: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    Edit1: TMenuItem;
    Copy1: TMenuItem;
    Past1: TMenuItem;
    Cust1: TMenuItem;
    File2: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    aaa1: TMenuItem;
    bbb1: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar3: TToolBar;
    ToolButton5: TToolButton;
    HeaderControl1: THeaderControl;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    GroupBox3: TGroupBox;
    StaticText1: TStaticText;
    GroupBox5: TGroupBox;
    LinkLabel1: TLinkLabel;
    GroupBox6: TGroupBox;
    RadioButton1: TRadioButton;
    GroupBox7: TGroupBox;
    CheckBox1: TCheckBox;
    GroupBox8: TGroupBox;
    Button1: TButton;
    GroupBox9: TGroupBox;
    SpeedButton1: TSpeedButton;
    GroupBox10: TGroupBox;
    BitBtn1: TBitBtn;
    GroupBox11: TGroupBox;
    ListBox1: TListBox;
    GroupBox12: TGroupBox;
    CheckListBox1: TCheckListBox;
    GroupBox13: TGroupBox;
    DBListBox1: TDBListBox;
    GroupBox14: TGroupBox;
    Memo2: TMemo;
    GroupBox15: TGroupBox;
    Panel1: TPanel;
    Button2: TButton;
    Memo1: TMemo;
    GroupBox16: TGroupBox;
    GroupBox1: TGroupBox;
    RadioButton2: TRadioButton;
    CheckBox2: TCheckBox;
    Button3: TButton;
    GroupBox4: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox17: TGroupBox;
    RadioGroup1: TRadioGroup;
    GroupBox18: TGroupBox;
    DBRadioGroup1: TDBRadioGroup;
    GroupBox19: TGroupBox;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    GroupBox21: TGroupBox;
    RichEdit1: TRichEdit;
    GroupBox22: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    GroupBox23: TGroupBox;
    ValueListEditor1: TValueListEditor;
    GroupBox20: TGroupBox;
    Edit2: TEdit;
    GroupBox24: TGroupBox;
    ListView1: TListView;
    GroupBox25: TGroupBox;
    TreeView1: TTreeView;
    GroupBox26: TGroupBox;
    ButtonGroup1: TButtonGroup;
    GroupBox27: TGroupBox;
    CategoryButtons1: TCategoryButtons;
    GroupBox28: TGroupBox;
    FlowPanel1: TFlowPanel;
    Button5: TButton;
    SpeedButton2: TSpeedButton;
    GroupBox29: TGroupBox;
    DockTabSet1: TDockTabSet;
    GroupBox30: TGroupBox;
    TabSet1: TTabSet;
    GroupBox31: TGroupBox;
    DBComboBox1: TDBComboBox;
    GroupBox32: TGroupBox;
    DBNavigator1: TDBNavigator;
    GroupBox33: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox34: TGroupBox;
    TabControl1: TTabControl;
    GroupBox35: TGroupBox;
    GridPanel1: TGridPanel;
    Button6: TButton;
    SpeedButton3: TSpeedButton;
    BitBtn2: TBitBtn;
    GroupBox36: TGroupBox;
    GroupBox37: TGroupBox;
    ColorListBox1: TColorListBox;
    ColorBox1: TColorBox;
    TabSheet2: TTabSheet;
    GroupBox38: TGroupBox;
    Outline1: TOutline;
    GroupBox39: TGroupBox;
    Notebook1: TNotebook;
    GroupBox40: TGroupBox;
    TabbedNotebook1: TTabbedNotebook;
    GroupBox41: TGroupBox;
    FileListBox1: TFileListBox;
    GroupBox42: TGroupBox;
    Header1: THeader;
    GroupBox43: TGroupBox;
    DirectoryListBox1: TDirectoryListBox;
    GroupBox44: TGroupBox;
    DriveComboBox1: TDriveComboBox;
    GroupBox45: TGroupBox;
    FilterComboBox1: TFilterComboBox;
    GroupBox46: TGroupBox;
    DBLookupCombo1: TDBLookupComboBox;
    TabSheet3: TTabSheet;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormStudent: TFormStudent;

implementation

uses DemoDM_U;

{$R *.DFM}

procedure TFormStudent.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.
